﻿Module Module1

    Sub Main()
        Dim myObj, youObj As Object
        myObj = CreateObject("PythonDemos.Utilities")
        youObj = myObj.SplitString("a,b,c", ",")
        MsgBox(CType(youObj, String))
        youObj = myObj.SplitString("a,b,c,d", ",")
        MsgBox(CType(youObj, String))
    End Sub

End Module
